
		Imports Acceso_a_Datos.Datos
		Namespace BO
		Partial Public Class tEmpresas



# Region "tIndustrias"

		private mtIndustrias As New tIndustrias

		Public Property tIndustrias As tIndustrias
            Get
                Try
                    mtIndustrias = mtIndustrias.TraerFiltradoListOf("IdIndustria", Me.IdIndustria).Item(0)
                Catch ex As Exception

                End Try

                Return mtIndustrias
            End Get
        Set
             If ((mtIndustrias Is Nothing) Or (Me.tIndustrias.Equals(value) = False)) Then
                If Not (Me.tIndustrias Is Nothing)
	               Dim oldtIndustrias As tIndustrias = Me.tIndustrias
                   Me.mtIndustrias = Nothing
                   oldtIndustrias.RemoveListatEmpresas(Me)
             	End If
            	If Not (value Is Nothing) Then
                   Me.mtIndustrias = value
                   Me.tIndustrias.AddListatEmpresas(Me)
            	End If
             End If
        End Set
       End Property

# End Region



# Region "tMunicipios"

		private mtMunicipios As New tMunicipios

		Public Property tMunicipios As tMunicipios
        Get
                mtMunicipios = mtMunicipios.TraerFiltradoListOf("IdMunicipio", Me.IdMunicipio).Item(0)
        Return mtMunicipios
        End Get
        Set
             If ((mtMunicipios Is Nothing) Or (Me.tMunicipios.Equals(value) = False)) Then
                If Not (Me.tMunicipios Is Nothing)
	               Dim oldtMunicipios As tMunicipios = Me.tMunicipios
                   Me.mtMunicipios = Nothing
                   oldtMunicipios.RemoveListatEmpresas(Me)
             	End If
            	If Not (value Is Nothing) Then
                   Me.mtMunicipios = value
                   Me.tMunicipios.AddListatEmpresas(Me)
            	End If
             End If
        End Set
       End Property

# End Region
# Region "tPlan_x_Empresa"
	private mlistatPlan_x_Empresa As New List (Of tPlan_x_Empresa)
Public Property ListatPlan_x_Empresa As System.Collections.Generic.List(Of tPlan_x_Empresa)
Get
dim mtPlan_x_Empresa As New tPlan_x_Empresa
mlistatPlan_x_Empresa =mtPlan_x_Empresa.TraerFiltradoListOf("IdEmpresa",Me.IdEmpresa)
Return mlistatPlan_x_Empresa
End Get
Set
RemoveAllListatPlan_x_Empresa()
If Not (Value Is Nothing) Then
Dim otPlan_x_Empresa As tPlan_x_Empresa
	For Each otPlan_x_Empresa in Value
		AddListatPlan_x_Empresa(otPlan_x_Empresa)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatPlan_x_Empresa(newtPlan_x_Empresa As tPlan_x_Empresa)
	If (mlistatPlan_x_Empresa Is Nothing) Then
		mlistatPlan_x_Empresa = new System.Collections.Generic.List(Of tPlan_x_Empresa)
	End If
	If Not mlistatPlan_x_Empresa.Contains(newtPlan_x_Empresa) Then
		mlistatPlan_x_Empresa.Add(newtPlan_x_Empresa)
		newtPlan_x_Empresa.tEmpresas = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatPlan_x_Empresa(oldtPlan_x_Empresa As tPlan_x_Empresa)
	If (mlistatPlan_x_Empresa.Contains(oldtPlan_x_Empresa)) Then
		mlistatPlan_x_Empresa.Remove(oldtPlan_x_Empresa)
		oldtPlan_x_Empresa.tEmpresas = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatPlan_x_Empresa()
	If Not (mlistatPlan_x_Empresa Is Nothing)
		Dim tmp_listatPlan_x_Empresa As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtPlan_x_Empresa As tPlan_x_Empresa
		For Each oldtPlan_x_Empresa in mlistatPlan_x_Empresa
			tmp_listatPlan_x_Empresa.Add(oldtPlan_x_Empresa)
		Next
	mlistatPlan_x_Empresa.Clear()
	For Each oldtPlan_x_Empresa in tmp_listatPlan_x_Empresa
		oldtPlan_x_Empresa = Nothing
	Next
	tmp_listatPlan_x_Empresa.Clear()
	End If
End Sub

# End Region
# Region "tSolicitudes"
	private mlistatSolicitudes As New List (Of tSolicitudes)
Public Property ListatSolicitudes As System.Collections.Generic.List(Of tSolicitudes)
Get
dim mtSolicitudes As New tSolicitudes
mlistatSolicitudes =mtSolicitudes.TraerFiltradoListOf("IdEmpresa",Me.IdEmpresa)
Return mlistatSolicitudes
End Get
Set
RemoveAllListatSolicitudes()
If Not (Value Is Nothing) Then
Dim otSolicitudes As tSolicitudes
	For Each otSolicitudes in Value
		AddListatSolicitudes(otSolicitudes)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatSolicitudes(newtSolicitudes As tSolicitudes)
	If (mlistatSolicitudes Is Nothing) Then
		mlistatSolicitudes = new System.Collections.Generic.List(Of tSolicitudes)
	End If
	If Not mlistatSolicitudes.Contains(newtSolicitudes) Then
		mlistatSolicitudes.Add(newtSolicitudes)
		newtSolicitudes.tEmpresas = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatSolicitudes(oldtSolicitudes As tSolicitudes)
	If (mlistatSolicitudes.Contains(oldtSolicitudes)) Then
		mlistatSolicitudes.Remove(oldtSolicitudes)
		oldtSolicitudes.tEmpresas = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatSolicitudes()
	If Not (mlistatSolicitudes Is Nothing)
		Dim tmp_listatSolicitudes As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtSolicitudes As tSolicitudes
		For Each oldtSolicitudes in mlistatSolicitudes
			tmp_listatSolicitudes.Add(oldtSolicitudes)
		Next
	mlistatSolicitudes.Clear()
	For Each oldtSolicitudes in tmp_listatSolicitudes
		oldtSolicitudes = Nothing
	Next
	tmp_listatSolicitudes.Clear()
	End If
End Sub

# End Region
# Region "tTrabajos"
	private mlistatTrabajos As New List (Of tTrabajos)
Public Property ListatTrabajos As System.Collections.Generic.List(Of tTrabajos)
Get
dim mtTrabajos As New tTrabajos
mlistatTrabajos =mtTrabajos.TraerFiltradoListOf("IdEmpresa",Me.IdEmpresa)
Return mlistatTrabajos
End Get
Set
RemoveAllListatTrabajos()
If Not (Value Is Nothing) Then
Dim otTrabajos As tTrabajos
	For Each otTrabajos in Value
		AddListatTrabajos(otTrabajos)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatTrabajos(newtTrabajos As tTrabajos)
	If (mlistatTrabajos Is Nothing) Then
		mlistatTrabajos = new System.Collections.Generic.List(Of tTrabajos)
	End If
	If Not mlistatTrabajos.Contains(newtTrabajos) Then
		mlistatTrabajos.Add(newtTrabajos)
		newtTrabajos.tEmpresas = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatTrabajos(oldtTrabajos As tTrabajos)
	If (mlistatTrabajos.Contains(oldtTrabajos)) Then
		mlistatTrabajos.Remove(oldtTrabajos)
		oldtTrabajos.tEmpresas = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatTrabajos()
	If Not (mlistatTrabajos Is Nothing)
		Dim tmp_listatTrabajos As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtTrabajos As tTrabajos
		For Each oldtTrabajos in mlistatTrabajos
			tmp_listatTrabajos.Add(oldtTrabajos)
		Next
	mlistatTrabajos.Clear()
	For Each oldtTrabajos in tmp_listatTrabajos
		oldtTrabajos = Nothing
	Next
	tmp_listatTrabajos.Clear()
	End If
End Sub

# End Region
# Region "tTrabajos_Domesticos"
	private mlistatTrabajos_Domesticos As New List (Of tTrabajos_Domesticos)
Public Property ListatTrabajos_Domesticos As System.Collections.Generic.List(Of tTrabajos_Domesticos)
Get
dim mtTrabajos_Domesticos As New tTrabajos_Domesticos
mlistatTrabajos_Domesticos =mtTrabajos_Domesticos.TraerFiltradoListOf("IdEmpresa",Me.IdEmpresa)
Return mlistatTrabajos_Domesticos
End Get
Set
RemoveAllListatTrabajos_Domesticos()
If Not (Value Is Nothing) Then
Dim otTrabajos_Domesticos As tTrabajos_Domesticos
	For Each otTrabajos_Domesticos in Value
		AddListatTrabajos_Domesticos(otTrabajos_Domesticos)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatTrabajos_Domesticos(newtTrabajos_Domesticos As tTrabajos_Domesticos)
	If (mlistatTrabajos_Domesticos Is Nothing) Then
		mlistatTrabajos_Domesticos = new System.Collections.Generic.List(Of tTrabajos_Domesticos)
	End If
	If Not mlistatTrabajos_Domesticos.Contains(newtTrabajos_Domesticos) Then
		mlistatTrabajos_Domesticos.Add(newtTrabajos_Domesticos)
		newtTrabajos_Domesticos.tEmpresas = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatTrabajos_Domesticos(oldtTrabajos_Domesticos As tTrabajos_Domesticos)
	If (mlistatTrabajos_Domesticos.Contains(oldtTrabajos_Domesticos)) Then
		mlistatTrabajos_Domesticos.Remove(oldtTrabajos_Domesticos)
		oldtTrabajos_Domesticos.tEmpresas = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatTrabajos_Domesticos()
	If Not (mlistatTrabajos_Domesticos Is Nothing)
		Dim tmp_listatTrabajos_Domesticos As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtTrabajos_Domesticos As tTrabajos_Domesticos
		For Each oldtTrabajos_Domesticos in mlistatTrabajos_Domesticos
			tmp_listatTrabajos_Domesticos.Add(oldtTrabajos_Domesticos)
		Next
	mlistatTrabajos_Domesticos.Clear()
	For Each oldtTrabajos_Domesticos in tmp_listatTrabajos_Domesticos
		oldtTrabajos_Domesticos = Nothing
	Next
	tmp_listatTrabajos_Domesticos.Clear()
	End If
End Sub

# End Region
# Region "tVisita_Solicitud"
	private mlistatVisita_Solicitud As New List (Of tVisita_Solicitud)
Public Property ListatVisita_Solicitud As System.Collections.Generic.List(Of tVisita_Solicitud)
Get
dim mtVisita_Solicitud As New tVisita_Solicitud
mlistatVisita_Solicitud =mtVisita_Solicitud.TraerFiltradoListOf("IdEmpresa",Me.IdEmpresa)
Return mlistatVisita_Solicitud
End Get
Set
RemoveAllListatVisita_Solicitud()
If Not (Value Is Nothing) Then
Dim otVisita_Solicitud As tVisita_Solicitud
	For Each otVisita_Solicitud in Value
		AddListatVisita_Solicitud(otVisita_Solicitud)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatVisita_Solicitud(newtVisita_Solicitud As tVisita_Solicitud)
	If (mlistatVisita_Solicitud Is Nothing) Then
		mlistatVisita_Solicitud = new System.Collections.Generic.List(Of tVisita_Solicitud)
	End If
	If Not mlistatVisita_Solicitud.Contains(newtVisita_Solicitud) Then
		mlistatVisita_Solicitud.Add(newtVisita_Solicitud)
		newtVisita_Solicitud.tEmpresas = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatVisita_Solicitud(oldtVisita_Solicitud As tVisita_Solicitud)
	If (mlistatVisita_Solicitud.Contains(oldtVisita_Solicitud)) Then
		mlistatVisita_Solicitud.Remove(oldtVisita_Solicitud)
		oldtVisita_Solicitud.tEmpresas = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatVisita_Solicitud()
	If Not (mlistatVisita_Solicitud Is Nothing)
		Dim tmp_listatVisita_Solicitud As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtVisita_Solicitud As tVisita_Solicitud
		For Each oldtVisita_Solicitud in mlistatVisita_Solicitud
			tmp_listatVisita_Solicitud.Add(oldtVisita_Solicitud)
		Next
	mlistatVisita_Solicitud.Clear()
	For Each oldtVisita_Solicitud in tmp_listatVisita_Solicitud
		oldtVisita_Solicitud = Nothing
	Next
	tmp_listatVisita_Solicitud.Clear()
	End If
End Sub

# End Region


# Region "Lecturas que devuelven listas"
Public Function TraerTodosListOf() As List(Of tEmpresas)
            Dim dtDatos As DataTable
            Dim listatEmpresas As New List(Of tEmpresas)
            Dim param As [String]
            param = (Me.mNombreEntidad + "_SelectAll")
            dtDatos = Me.ServidorDatos.TraerDataTable(param)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtEmpresas As New tEmpresas
				mtEmpresas.IdEmpresa = CType(dr.Item("IdEmpresa"),Integer)
				mtEmpresas.Traer_objeto()
            	listatEmpresas.Add( mtEmpresas)
    		Next dr
Return listatEmpresas
End Function

Public Function TraerFiltradoListOf(ByVal Filtro As [String], ByVal Args As Object) As List(Of tEmpresas)
            Dim dtDatos As DataTable
            Dim param As [String]
            Dim listatEmpresas As New List(Of tEmpresas)
            param = (Me.mNombreEntidad + "_Tx")
            param = (param + Filtro.ToString)
            dtDatos = Me.ServidorDatos.TraerDataTable(param, Args)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtEmpresas As New tEmpresas
				mtEmpresas.IdEmpresa = CType(dr.Item("IdEmpresa"),Integer)
				mtEmpresas.Traer_objeto()
            	listatEmpresas.Add( mtEmpresas)
    		Next dr
Return listatEmpresas
End Function

Public Function TraerFiltradoLikeListOf(ByVal Filtro As [String], ByVal Args As Object) As List(Of tEmpresas)
            Dim dtDatos As DataTable
            Dim param As [String]
            Dim listatEmpresas As New List(Of tEmpresas)
            param = (Me.mNombreEntidad + "_TxLike")
            param = (param + Filtro.ToString)
            dtDatos = Me.ServidorDatos.TraerDataTable(param, Args)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtEmpresas As New tEmpresas
				mtEmpresas.IdEmpresa = CType(dr.Item("IdEmpresa"),Integer)
				mtEmpresas.Traer_objeto()
            	listatEmpresas.Add( mtEmpresas)
    		Next dr
Return listatEmpresas
End Function
# End Region

End Class
End Namespace
